home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00073_Script_start & stop < prev    next >
Text File  |  1997-08-08  |  2KB  |  101 lines
  1.  
  2. -- ==================================================
  3. -- startmovie
  4. -- --------------------------------------------------
  5. on startmovie
  6.   
  7.   put "startmovie: ", the movie
  8.   
  9.   cursor 200
  10.   
  11.   set the exitlock = true
  12.   
  13.   hcheckdepth
  14.   set the keyDownScript = "keyQuit"
  15.   
  16. end startmovie
  17.  
  18. -- ==================================================
  19. -- stopmovie
  20. -- --------------------------------------------------
  21. on stopmovie
  22.   
  23.   put "closemovie: ", the movie
  24.   
  25.   cursor - 1
  26.   
  27. end stopmovie
  28.  
  29. -- ==================================================
  30. -- hdispose
  31. -- --------------------------------------------------
  32. on hdispose
  33.   
  34.   hendgame
  35.   
  36.   global gpoll
  37.   mdispose gpoll
  38.   
  39.   global grear
  40.   mdispose grear
  41.   
  42. end hdispose
  43.  
  44. -- ==================================================
  45. -- hendgame
  46. -- --------------------------------------------------
  47. on hendgame
  48.   
  49.   turnpuppets 1, 48, false
  50.   
  51. end hendgame
  52.  
  53. -- ==================================================
  54. -- hcheckdepth
  55. -- --------------------------------------------------
  56. on hcheckdepth
  57.   
  58.   if not ( the colordepth = 8 ) then
  59.     
  60.     if the machinetype = 256 then
  61.       
  62.       alert "Set your monitor to 256 colours"
  63.       
  64.     else
  65.       
  66.       set the colordepth = 8
  67.       
  68.     end if
  69.   end if
  70.   
  71. --  if the machinetype = 256 then
  72. --    if the freebytes < 2.5 * 1024 then
  73. --      alert "There is insufficent memory to run this program"
  74. --      quit
  75. --    end if
  76. --  end if
  77.   
  78.   if not ( the quicktimepresent ) then
  79.     alert "Please install Quicktime"
  80.     quit
  81.   end if
  82.   
  83.   
  84. end hcheckdepth
  85.  
  86. on keyQuit
  87.   if (the commandDown) and (the key = "Q") then QUITME
  88. end keyQuit
  89.  
  90.  
  91. ON QUITME
  92.   repeat with n = 1 to 16
  93.     puppetSound n, false
  94.   end repeat
  95.   unloadcast
  96.   set the colorDepth to 16
  97.   
  98.   play done
  99.   
  100. end QUITME
  101.